home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / COST.SAB < prev    next >
Text File  |  1991-10-16  |  451b  |  20 lines
  1. label start
  2. cls
  3. display cp.dis
  4. write "COST.SAB" at 2,36
  5. write "Court Cost Accounting" at 7,29
  6. set v cost to ""
  7. fil cost usi "Enter CASE NUMBER, ADD.CODE, NEW  Or <ESC>   " at 10,15
  8.   if cost = "" then ; goto fin ; endif
  9.   if cost = "new" then ; goto new ; endif
  10.   edit using edcost where case.num con .cost
  11.   edit using edcost where add.code con .cost
  12.   goto start
  13. label new
  14.   enter sc.cost
  15.   goto start
  16. label fin
  17.   cls
  18.   return
  19.  
  20.